e = single (1);
while e+1>1
    e = e/2;
end
e
